home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Science
/
RLaB
/
.rlab
next >
Wrap
Text File
|
1994-03-27
|
206b
|
22 lines
//
// .rlab
//
// Calculate pi
pi = atan(1.0)*4.0;
// Calculate machine epsilon
epsilon = function()
{
eps = 1.0;
while((eps + 1.0) != 1.0)
{
eps = eps/2.0;
}
return eps;
};
epsilon();